home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-04
/
clipswap.zip
/
TEST.PRG
< prev
Wrap
Text File
|
1992-02-15
|
375b
|
21 lines
* test code for SWAPON and SWAPOFF in SWAP.OBJ
clear screen
if swapoff()
? 'dosswap disabled'
else
? 'dosswap not installed'
return
endif
? "Try and Swap now and all you'll get is the infamous DOSSHELL beep!"
INKEY(0)
if swapon()
? 'dosswap is enabled'
else
? 'dosswap not installed'
return
endif
return